INCLUDE "68000.POD"SETUP   TRAP ACTIVE INTERRUPT NO   TRAP ACTIVE FORCE LINE NOPROGRAM MAIN   REGF=A00000   REGA=01: LABEL 1   DPY-$F   WRITE @ REGF=REGA   INC REGA   INC REGF   INC REGF   IF REGF > A00FFF GOTO 2   GOTO 12: LABEL 2   DPY #   STOP